home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / fortran / toolpack.000 / toolpack / toolpack1.2 / access / USTKW.MAC.f < prev    next >
Encoding:
Text File  |  1989-03-04  |  483 b   |  19 lines
  1. C---------------------------------------------------------
  2. C    TOOLPACK/1    Release: 2.4
  3. C---------------------------------------------------------
  4. C ----------------------------------------------------------------------
  5. C
  6. C       Z T O K W R   -   Interface to token stream unscanning output
  7. C
  8.  
  9.         SUBROUTINE ZTOKWR(TYPE,LEN,STR,TKDESC)
  10.         INTEGER TYPE,LEN,STR(*),TKDESC
  11.  
  12.         SAVE
  13.  
  14.         EXTERNAL ZUSCAN
  15.  
  16.         CALL ZUSCAN(TYPE,LEN,STR,TKDESC)
  17.  
  18.         END
  19.